home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / common.cst / 00076_buttonFlashLite.ls < prev    next >
Encoding:
Text File  |  2001-09-04  |  463 b   |  26 lines
  1. property meSprite, meMember, meHmember, delayCnt
  2. global sessionObject, monkey
  3.  
  4. on beginSprite me
  5.   delayCnt = 0
  6.   meSprite = sprite(me.spriteNum)
  7.   meMember = meSprite.member
  8.   meHmember = member(meMember.name&"h", 2)
  9. end
  10.  
  11. on exitFrame me
  12.   delayCnt = delayCnt + 1
  13.   if delayCnt = 5 then
  14.     delayCnt = 0
  15.     if meSprite.member = meMember then
  16.       meSprite.member = meHmember
  17.     else
  18.       meSprite.member = meMember
  19.     end if
  20.     updateStage
  21.   end if
  22. end
  23.  
  24.  
  25.  
  26.